/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / utils / pp.elc.z / pp.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 36 3a 30 35 20 31 | 39 39 38 0a 3b 3b 3b 20 |:56:05 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 75 74 69 6c |s-20.3/l|isp/util|
|000000a0| 73 2f 70 70 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |s/pp.el.|;;; emac|
|000000b0| 73 20 76 65 72 73 69 6f | 6e 20 32 30 2e 34 20 22 |s versio|n 20.4 "|
|000000c0| 45 6d 65 72 61 6c 64 22 | 20 58 45 6d 61 63 73 20 |Emerald"| XEmacs |
|000000d0| 20 4c 75 63 69 64 2e 0a | 3b 3b 3b 20 62 79 74 65 | Lucid..|;;; byte|
|000000e0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 32 2e 32 |comp ver|sion 2.2|
|000000f0| 35 20 58 45 6d 61 63 73 | 3b 20 32 32 2d 4d 61 72 |5 XEmacs|; 22-Mar|
|00000100| 2d 39 36 2e 0a 3b 3b 3b | 20 6f 70 74 69 6d 69 7a |-96..;;;| optimiz|
|00000110| 61 74 69 6f 6e 20 69 73 | 20 6f 6e 2e 0a 3b 3b 3b |ation is| on..;;;|
|00000120| 20 74 68 69 73 20 66 69 | 6c 65 20 75 73 65 73 20 | this fi|le uses |
|00000130| 6f 70 63 6f 64 65 73 20 | 77 68 69 63 68 20 64 6f |opcodes |which do|
|00000140| 20 6e 6f 74 20 65 78 69 | 73 74 20 69 6e 20 45 6d | not exi|st in Em|
|00000150| 61 63 73 20 31 39 2e 0a | 0a 28 69 66 20 28 61 6e |acs 19..|.(if (an|
|00000160| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 6d 61 63 73 |d (bound|p 'emacs|
|00000170| 2d 76 65 72 73 69 6f 6e | 29 0a 09 20 28 6f 72 20 |-version|).. (or |
|00000180| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 70 |(and (bo|undp 'ep|
|00000190| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 20 65 70 |och::ver|sion) ep|
|000001a0| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 0a 09 20 |och::ver|sion).. |
|000001b0| 20 20 20 20 28 73 74 72 | 69 6e 67 2d 6c 65 73 73 |    (str|ing-less|
|000001c0| 70 20 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 20 |p emacs-|version |
|000001d0| 22 32 30 22 29 29 29 0a | 20 20 20 20 28 65 72 72 |"20"))).|    (err|
|000001e0| 6f 72 20 22 60 70 70 2e | 65 6c 27 20 77 61 73 20 |or "`pp.|el' was |
|000001f0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|00000200| 63 73 20 32 30 22 29 29 | 0a 0a 28 6f 72 20 28 62 |cs 20"))|..(or (b|
|00000210| 6f 75 6e 64 70 20 27 63 | 75 72 72 65 6e 74 2d 6c |oundp 'c|urrent-l|
|00000220| 6f 61 64 2d 6c 69 73 74 | 29 20 28 73 65 74 71 20 |oad-list|) (setq |
|00000230| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000240| 74 20 6e 69 6c 29 29 0a | 0a 0a 23 40 35 37 20 2a |t nil)).|..#@57 *|
|00000250| 56 61 6c 75 65 20 6f 66 | 20 70 72 69 6e 74 2d 65 |Value of| print-e|
|00000260| 73 63 61 70 65 2d 6e 65 | 77 6c 69 6e 65 73 20 75 |scape-ne|wlines u|
|00000270| 73 65 64 20 62 79 20 70 | 70 2d 2a 20 66 75 6e 63 |sed by p|p-* func|
|00000280| 74 69 6f 6e 73 2e 1f 0a | 28 64 65 66 76 61 72 20 |tions...|(defvar |
|00000290| 70 70 2d 65 73 63 61 70 | 65 2d 6e 65 77 6c 69 6e |pp-escap|e-newlin|
|000002a0| 65 73 20 74 20 28 23 24 | 20 2e 20 2d 35 39 31 29 |es t (#$| . -591)|
|000002b0| 29 0a 23 40 35 32 20 2a | 56 61 6c 75 65 20 6f 66 |).#@52 *|Value of|
|000002c0| 20 60 70 72 69 6e 74 2d | 72 65 61 64 61 62 6c 79 | `print-|readably|
|000002d0| 27 20 75 73 65 64 20 62 | 79 20 70 70 2d 2a 20 66 |' used b|y pp-* f|
|000002e0| 75 6e 63 74 69 6f 6e 73 | 2e 1f 0a 28 64 65 66 76 |unctions|...(defv|
|000002f0| 61 72 20 70 70 2d 70 72 | 69 6e 74 2d 72 65 61 64 |ar pp-pr|int-read|
|00000300| 61 62 6c 79 20 74 20 28 | 23 24 20 2e 20 2d 36 39 |ably t (|#$ . -69|
|00000310| 35 29 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 70 |5)).(def|alias 'p|
|00000320| 70 72 69 6e 74 20 27 70 | 70 29 0a 23 40 31 39 37 |print 'p|p).#@197|
|00000330| 20 52 65 74 75 72 6e 20 | 61 20 73 74 72 69 6e 67 | Return |a string|
|00000340| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 74 68 65 20 | contain|ing the |
|00000350| 70 72 65 74 74 79 2d 70 | 72 69 6e 74 65 64 20 72 |pretty-p|rinted r|
|00000360| 65 70 72 65 73 65 6e 74 | 61 74 69 6f 6e 20 6f 66 |epresent|ation of|
|00000370| 20 4f 42 4a 45 43 54 2c | 0a 61 6e 79 20 4c 69 73 | OBJECT,|.any Lis|
|00000380| 70 20 6f 62 6a 65 63 74 | 2e 20 20 51 75 6f 74 69 |p object|.  Quoti|
|00000390| 6e 67 20 63 68 61 72 61 | 63 74 65 72 73 20 61 72 |ng chara|cters ar|
|000003a0| 65 20 75 73 65 64 20 77 | 68 65 6e 20 6e 65 65 64 |e used w|hen need|
|000003b0| 65 64 20 74 6f 20 6d 61 | 6b 65 20 6f 75 74 70 75 |ed to ma|ke outpu|
|000003c0| 74 0a 74 68 61 74 20 60 | 72 65 61 64 27 20 63 61 |t.that `|read' ca|
|000003d0| 6e 20 68 61 6e 64 6c 65 | 2c 20 77 68 65 6e 65 76 |n handle|, whenev|
|000003e0| 65 72 20 74 68 69 73 20 | 69 73 20 70 6f 73 73 69 |er this |is possi|
|000003f0| 62 6c 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ble...(d|efalias |
|00000400| 27 70 70 2d 74 6f 2d 73 | 74 72 69 6e 67 20 23 5b |'pp-to-s|tring #[|
|00000410| 28 6f 62 6a 65 63 74 29 | 20 22 8a c0 c1 21 71 88 |(object)| "...!q.|
|00000420| c2 8e c3 c4 21 88 0d 1e | 06 c7 0e 08 70 5c 22 88 |....!...|....p\".|
|00000430| 29 65 62 88 6d 84 c8 00 | c9 ca 21 ab 8a c9 ca 21 |)eb.m...|..!....!|
|00000440| ab 72 cb 75 88 aa 76 c9 | cc 21 ab c3 cb 94 cb 56 |.r.u..v.|.!.....V|
|00000450| ab bd cb 94 53 66 cd 55 | ab b5 8a ce 94 62 88 cf |....Sf.U|.....b..|
|00000460| 20 88 d0 d1 60 66 5c 22 | 29 ab a5 cb 94 53 cb 95 | ...`f\"|)....S..|
|00000470| 7c 88 d2 63 88 cf cb 21 | 88 c9 d3 21 ab 88 d4 94 ||..c...!|...!....|
|00000480| d4 95 7c 88 aa 84 d5 d6 | 21 88 d7 cb 21 88 aa 25 |..|.....|!...!..%|
|00000490| d8 d9 da 8f ab 9d db cb | 21 88 dc dd 78 88 60 dc |........|!...x.`.|
|000004a0| dd 77 88 60 7c 88 d0 de | 60 53 66 5c 22 ac 07 df |.w.`|...|`Sf\"...|
|000004b0| 63 88 aa 02 d8 e0 e1 8f | ab a5 c9 e2 21 ab 85 cb |c.......|....!...|
|000004c0| 75 88 aa 76 dc dd 78 88 | 60 dc dd 77 88 60 7c 88 |u..v..x.|`..w.`|.|
|000004d0| d0 de 60 53 66 5c 22 84 | 19 00 df 63 88 82 19 00 |..`Sf\".|...c....|
|000004e0| 64 62 88 82 19 00 65 62 | 88 e3 20 88 e4 20 2a 87 |db....eb|.. .. *.|
|000004f0| 22 20 5b 67 65 6e 65 72 | 61 74 65 2d 6e 65 77 2d |" [gener|ate-new-|
|00000500| 62 75 66 66 65 72 20 22 | 20 70 70 2d 74 6f 2d 73 |buffer "| pp-to-s|
|00000510| 74 72 69 6e 67 22 20 28 | 28 62 79 74 65 2d 63 6f |tring" (|(byte-co|
|00000520| 64 65 20 22 c0 70 21 87 | 22 20 5b 6b 69 6c 6c 2d |de ".p!.|" [kill-|
|00000530| 62 75 66 66 65 72 5d 20 | 32 29 29 20 6c 69 73 70 |buffer] |2)) lisp|
|00000540| 2d 6d 6f 64 65 2d 76 61 | 72 69 61 62 6c 65 73 20 |-mode-va|riables |
|00000550| 74 20 70 70 2d 65 73 63 | 61 70 65 2d 6e 65 77 6c |t pp-esc|ape-newl|
|00000560| 69 6e 65 73 20 70 72 69 | 6e 74 2d 65 73 63 61 70 |ines pri|nt-escap|
|00000570| 65 2d 6e 65 77 6c 69 6e | 65 73 20 70 72 69 6e 31 |e-newlin|es prin1|
|00000580| 20 6f 62 6a 65 63 74 20 | 6c 6f 6f 6b 69 6e 67 2d | object |looking-|
|00000590| 61 74 20 22 5c 5c 73 28 | 5c 5c 7c 23 5c 5c 73 28 |at "\\s(|\\|#\\s(|
|000005a0| 22 20 31 20 22 5c 5c 28 | 71 75 6f 74 65 5b 20 09 |" 1 "\\(|quote[ .|
|000005b0| 5d 2b 5c 5c 29 5c 5c 28 | 5b 5e 2e 29 5d 5c 5c 29 |]+\\)\\(|[^.)]\\)|
|000005c0| 22 20 3f 5c 28 20 32 20 | 66 6f 72 77 61 72 64 2d |" ?\( 2 |forward-|
|000005d0| 73 65 78 70 20 63 68 61 | 72 2d 65 71 75 61 6c 20 |sexp cha|r-equal |
|000005e0| 3f 5c 29 20 22 27 22 20 | 22 5b 20 09 5d 2a 29 22 |?\) "'" |"[ .]*)"|
|000005f0| 20 30 20 65 72 72 6f 72 | 20 22 4d 61 6c 66 6f 72 | 0 error| "Malfor|
|00000600| 6d 65 64 20 71 75 6f 74 | 65 22 20 62 61 63 6b 77 |med quot|e" backw|
|00000610| 61 72 64 2d 73 65 78 70 | 20 65 72 72 2d 76 61 72 |ard-sexp| err-var|
|00000620| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 | (byte-c|ode "...|
|00000630| 21 88 87 22 20 5b 74 20 | 64 6f 77 6e 2d 6c 69 73 |!.." [t |down-lis|
|00000640| 74 20 31 5d 20 33 29 20 | 28 28 65 72 72 6f 72 29 |t 1] 3) |((error)|
|00000650| 29 20 62 61 63 6b 77 61 | 72 64 2d 63 68 61 72 20 |) backwa|rd-char |
|00000660| 22 20 09 22 20 6e 69 6c | 20 3f 5c 27 20 3f 5c 6e |" ." nil| ?\' ?\n|
|00000670| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 | (byte-c|ode "...|
|00000680| 21 88 87 22 20 5b 74 20 | 75 70 2d 6c 69 73 74 20 |!.." [t |up-list |
|00000690| 31 5d 20 33 29 20 28 28 | 65 72 72 6f 72 29 29 20 |1] 3) ((|error)) |
|000006a0| 22 5c 5c 73 29 22 20 69 | 6e 64 65 6e 74 2d 73 65 |"\\s)" i|ndent-se|
|000006b0| 78 70 20 62 75 66 66 65 | 72 2d 73 74 72 69 6e 67 |xp buffe|r-string|
|000006c0| 5d 20 33 20 28 23 24 20 | 2e 20 38 31 37 29 5d 29 |] 3 (#$ |. 817)])|
|000006d0| 0a 23 40 32 34 37 20 4f | 75 74 70 75 74 20 74 68 |.#@247 O|utput th|
|000006e0| 65 20 70 72 65 74 74 79 | 2d 70 72 69 6e 74 65 64 |e pretty|-printed|
|000006f0| 20 72 65 70 72 65 73 65 | 6e 74 61 74 69 6f 6e 20 | represe|ntation |
|00000700| 6f 66 20 4f 42 4a 45 43 | 54 2c 20 61 6e 79 20 4c |of OBJEC|T, any L|
|00000710| 69 73 70 20 6f 62 6a 65 | 63 74 2e 0a 51 75 6f 74 |isp obje|ct..Quot|
|00000720| 69 6e 67 20 63 68 61 72 | 61 63 74 65 72 73 20 61 |ing char|acters a|
|00000730| 72 65 20 70 72 69 6e 74 | 65 64 20 77 68 65 6e 20 |re print|ed when |
|00000740| 6e 65 65 64 65 64 20 74 | 6f 20 6d 61 6b 65 20 6f |needed t|o make o|
|00000750| 75 74 70 75 74 20 74 68 | 61 74 20 60 72 65 61 64 |utput th|at `read|
|00000760| 27 0a 63 61 6e 20 68 61 | 6e 64 6c 65 2c 20 77 68 |'.can ha|ndle, wh|
|00000770| 65 6e 65 76 65 72 20 74 | 68 69 73 20 69 73 20 70 |enever t|his is p|
|00000780| 6f 73 73 69 62 6c 65 2e | 0a 4f 75 74 70 75 74 20 |ossible.|.Output |
|00000790| 73 74 72 65 61 6d 20 69 | 73 20 53 54 52 45 41 4d |stream i|s STREAM|
|000007a0| 2c 20 6f 72 20 76 61 6c | 75 65 20 6f 66 20 60 73 |, or val|ue of `s|
|000007b0| 74 61 6e 64 61 72 64 2d | 6f 75 74 70 75 74 27 20 |tandard-|output' |
|000007c0| 28 77 68 69 63 68 20 73 | 65 65 29 2e 1f 0a 28 64 |(which s|ee)...(d|
|000007d0| 65 66 61 6c 69 61 73 20 | 27 70 70 20 23 5b 28 6f |efalias |'pp #[(o|
|000007e0| 62 6a 65 63 74 20 26 6f | 70 74 69 6f 6e 61 6c 20 |bject &o|ptional |
|000007f0| 73 74 72 65 61 6d 29 20 | 22 c0 c1 5c 6e 21 0b ae |stream) |"..\n!..|
|00000800| 81 0c 5c 22 87 22 20 5b | 70 72 69 6e 63 20 70 70 |..\"." [|princ pp|
|00000810| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 6f 62 6a 65 63 |-to-stri|ng objec|
|00000820| 74 20 73 74 72 65 61 6d | 20 73 74 61 6e 64 61 72 |t stream| standar|
|00000830| 64 2d 6f 75 74 70 75 74 | 5d 20 33 20 28 23 24 20 |d-output|] 3 (#$ |
|00000840| 2e 20 31 37 35 31 29 5d | 29 0a 23 40 32 31 35 20 |. 1751)]|).#@215 |
|00000850| 45 76 61 6c 75 61 74 65 | 20 45 58 50 52 45 53 53 |Evaluate| EXPRESS|
|00000860| 49 4f 4e 20 61 6e 64 20 | 70 72 65 74 74 79 2d 70 |ION and |pretty-p|
|00000870| 72 69 6e 74 20 76 61 6c | 75 65 20 69 6e 74 6f 20 |rint val|ue into |
|00000880| 61 20 6e 65 77 20 64 69 | 73 70 6c 61 79 20 62 75 |a new di|splay bu|
|00000890| 66 66 65 72 2e 0a 49 66 | 20 74 68 65 20 70 72 65 |ffer..If| the pre|
|000008a0| 74 74 79 2d 70 72 69 6e | 74 65 64 20 76 61 6c 75 |tty-prin|ted valu|
|000008b0| 65 20 66 69 74 73 20 6f | 6e 20 6f 6e 65 20 6c 69 |e fits o|n one li|
|000008c0| 6e 65 2c 20 74 68 65 20 | 6d 65 73 73 61 67 65 20 |ne, the |message |
|000008d0| 6c 69 6e 65 20 69 73 20 | 75 73 65 64 0a 69 6e 73 |line is |used.ins|
|000008e0| 74 65 61 64 2e 20 20 56 | 61 6c 75 65 20 69 73 20 |tead.  V|alue is |
|000008f0| 61 6c 73 6f 20 63 6f 6e | 73 65 64 20 6f 6e 20 74 |also con|sed on t|
|00000900| 6f 20 66 72 6f 6e 74 20 | 6f 66 20 76 61 72 69 61 |o front |of varia|
|00000910| 62 6c 65 20 20 76 61 6c | 75 65 73 20 27 73 0a 76 |ble  val|ues 's.v|
|00000920| 61 6c 75 65 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |alue...(|defalias|
|00000930| 20 27 70 70 2d 65 76 61 | 6c 2d 65 78 70 72 65 73 | 'pp-eva|l-expres|
|00000940| 73 69 6f 6e 20 23 5b 28 | 65 78 70 72 65 73 73 69 |sion #[(|expressi|
|00000950| 6f 6e 29 20 22 c0 09 21 | 5c 6e 42 12 0b 1c c5 1b |on) "..!|\nB.....|
|00000960| c6 90 c7 5c 6e 40 21 91 | 88 8a c6 71 88 c8 1e 09 |...\n@!.|...q....|
|00000970| ca 20 2c 87 22 20 5b 65 | 76 61 6c 20 65 78 70 72 |. ,." [e|val expr|
|00000980| 65 73 73 69 6f 6e 20 76 | 61 6c 75 65 73 20 74 65 |ession v|alues te|
|00000990| 6d 70 2d 62 75 66 66 65 | 72 2d 73 68 6f 77 2d 66 |mp-buffe|r-show-f|
|000009a0| 75 6e 63 74 69 6f 6e 20 | 6f 6c 64 2d 73 68 6f 77 |unction |old-show|
|000009b0| 2d 66 75 6e 63 74 69 6f | 6e 20 23 5b 28 62 75 66 |-functio|n #[(buf|
|000009c0| 29 20 22 8a 08 71 88 65 | 62 88 c1 7f 88 60 54 64 |) "..q.e|b....`Td|
|000009d0| 57 ac 88 60 65 5a c2 20 | 59 ab a3 0b c4 20 c5 08 |W..`eZ. |Y.... ..|
|000009e0| 21 1e 06 1e 07 1e 08 65 | 62 88 c9 ca 0e 06 21 21 |!......e|b.....!!|
|000009f0| 88 cb 8e cc 0e 06 21 88 | cd ce 21 2c aa 86 cf d0 |......!.|..!,....|
|00000a00| 65 60 7b 5c 22 29 87 22 | 20 5b 62 75 66 20 31 20 |e`{\")."| [buf 1 |
|00000a10| 66 72 61 6d 65 2d 77 69 | 64 74 68 20 6f 6c 64 2d |frame-wi|dth old-|
|00000a20| 73 68 6f 77 2d 66 75 6e | 63 74 69 6f 6e 20 73 65 |show-fun|ction se|
|00000a30| 6c 65 63 74 65 64 2d 77 | 69 6e 64 6f 77 20 64 69 |lected-w|indow di|
|00000a40| 73 70 6c 61 79 2d 62 75 | 66 66 65 72 20 77 69 6e |splay-bu|ffer win|
|00000a50| 64 6f 77 20 6f 6c 64 2d | 73 65 6c 65 63 74 65 64 |dow old-|selected|
|00000a60| 20 74 65 6d 70 2d 62 75 | 66 66 65 72 2d 73 68 6f | temp-bu|ffer-sho|
|00000a70| 77 2d 66 75 6e 63 74 69 | 6f 6e 20 6d 61 6b 65 2d |w-functi|on make-|
|00000a80| 66 72 61 6d 65 2d 76 69 | 73 69 62 6c 65 20 77 69 |frame-vi|sible wi|
|00000a90| 6e 64 6f 77 2d 66 72 61 | 6d 65 20 28 28 73 65 6c |ndow-fra|me ((sel|
|00000aa0| 65 63 74 2d 77 69 6e 64 | 6f 77 20 6f 6c 64 2d 73 |ect-wind|ow old-s|
|00000ab0| 65 6c 65 63 74 65 64 29 | 29 20 73 65 6c 65 63 74 |elected)|) select|
|00000ac0| 2d 77 69 6e 64 6f 77 20 | 72 75 6e 2d 68 6f 6f 6b |-window |run-hook|
|00000ad0| 73 20 74 65 6d 70 2d 62 | 75 66 66 65 72 2d 73 68 |s temp-b|uffer-sh|
|00000ae0| 6f 77 2d 68 6f 6f 6b 20 | 6d 65 73 73 61 67 65 20 |ow-hook |message |
|00000af0| 22 25 73 22 5d 20 34 5d | 20 22 2a 50 70 20 45 76 |"%s"] 4]| "*Pp Ev|
|00000b00| 61 6c 20 4f 75 74 70 75 | 74 2a 22 20 70 70 20 6e |al Outpu|t*" pp n|
|00000b10| 69 6c 20 65 6d 61 63 73 | 2d 6c 69 73 70 2d 6d 6f |il emacs|-lisp-mo|
|00000b20| 64 65 2d 68 6f 6f 6b 20 | 65 6d 61 63 73 2d 6c 69 |de-hook |emacs-li|
|00000b30| 73 70 2d 6d 6f 64 65 5d | 20 33 20 28 23 24 20 2e |sp-mode]| 3 (#$ .|
|00000b40| 20 32 31 32 38 29 20 22 | 78 50 70 2d 65 76 61 6c | 2128) "|xPp-eval|
|00000b50| 3a 20 22 5d 29 0a 23 40 | 31 35 32 20 52 75 6e 20 |: "]).#@|152 Run |
|00000b60| 60 70 70 2d 65 76 61 6c | 2d 65 78 70 72 65 73 73 |`pp-eval|-express|
|00000b70| 69 6f 6e 27 20 6f 6e 20 | 73 65 78 70 20 62 65 66 |ion' on |sexp bef|
|00000b80| 6f 72 65 20 70 6f 69 6e | 74 20 28 77 68 69 63 68 |ore poin|t (which|
|00000b90| 20 73 65 65 29 2e 0a 57 | 69 74 68 20 61 72 67 75 | see)..W|ith argu|
|00000ba0| 6d 65 6e 74 2c 20 70 72 | 65 74 74 79 2d 70 72 69 |ment, pr|etty-pri|
|00000bb0| 6e 74 20 6f 75 74 70 75 | 74 20 69 6e 74 6f 20 63 |nt outpu|t into c|
|00000bc0| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 2e 0a 49 |urrent b|uffer..I|
|00000bd0| 67 6e 6f 72 65 73 20 6c | 65 61 64 69 6e 67 20 63 |gnores l|eading c|
|00000be0| 6f 6d 6d 65 6e 74 20 63 | 68 61 72 61 63 74 65 72 |omment c|haracter|
|00000bf0| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 70 |s...(def|alias 'p|
|00000c00| 70 2d 65 76 61 6c 2d 6c | 61 73 74 2d 73 65 78 70 |p-eval-l|ast-sexp|
|00000c10| 20 23 5b 28 61 72 67 29 | 20 22 c0 20 60 c1 89 1a | #[(arg)| ". `...|
|00000c20| 1b 1c 1d c6 0e 07 21 88 | 8a c8 c9 21 88 8a ca 79 |......!.|...!...y|
|00000c30| 88 cb cc 21 29 ab a2 60 | 0c 7b 12 cd ce 5c 6e 0b |...!)..`|.{...\n.|
|00000c40| 23 ab 91 ca 94 54 13 5c | 6e ca 0b 4f 5c 6e ca 95 |#....T.\|n..O\n..|
|00000c50| c1 4f 50 12 aa 68 cf 5c | 6e 21 12 aa 84 cf 70 21 |.OP..h.\|n!....p!|
|00000c60| 12 29 c6 0d 21 88 0e 10 | ab 88 d1 d2 5c 6e 21 21 |.)..!...|....\n!!|
|00000c70| 63 aa 83 d3 5c 6e 21 2c | 87 22 20 5b 73 79 6e 74 |c...\n!,|." [synt|
|00000c80| 61 78 2d 74 61 62 6c 65 | 20 6e 69 6c 20 65 78 70 |ax-table| nil exp|
|00000c90| 20 73 74 61 72 74 20 70 | 74 20 73 74 61 62 20 73 | start p|t stab s|
|00000ca0| 65 74 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |et-synta|x-table |
|00000cb0| 65 6d 61 63 73 2d 6c 69 | 73 70 2d 6d 6f 64 65 2d |emacs-li|sp-mode-|
|00000cc0| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 66 6f 72 |syntax-t|able for|
|00000cd0| 77 61 72 64 2d 73 65 78 | 70 20 2d 31 20 30 20 6c |ward-sex|p -1 0 l|
|00000ce0| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 5b 20 09 5d 2a |ooking-a|t "[ .]*|
|00000cf0| 3b 22 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |;" strin|g-match |
|00000d00| 22 5c 6e 5b 20 09 5d 2a | 3b 2b 22 20 72 65 61 64 |"\n[ .]*|;+" read|
|00000d10| 20 61 72 67 20 70 70 2d | 74 6f 2d 73 74 72 69 6e | arg pp-|to-strin|
|00000d20| 67 20 65 76 61 6c 20 70 | 70 2d 65 76 61 6c 2d 65 |g eval p|p-eval-e|
|00000d30| 78 70 72 65 73 73 69 6f | 6e 5d 20 34 20 28 23 24 |xpressio|n] 4 (#$|
|00000d40| 20 2e 20 32 39 30 38 29 | 20 22 50 22 5d 29 0a 28 | . 2908)| "P"]).(|
|00000d50| 70 72 6f 76 69 64 65 20 | 27 70 70 29 0a          |provide |'pp).   |
+--------+-------------------------+-------------------------+--------+--------+